unit FRM_CONSULTA_RESERVAS_QUARTOS;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, FRM_PADRAO, ExtCtrls, DynamicSkinForm, SkinCtrls, SkinGrids,
  spDBGrids, StdCtrls, Mask, SkinBoxCtrls, DB;

type
  TForm9 = class(TForm2)
    DataSource1: TDataSource;
    procedure FormCreate(Sender: TObject);
    procedure BtnNovoClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }

  end;

var
  Form9: TForm9;

implementation

uses DATA_MODULE, FRM_CADASTRO_RESERVAS_QUARTOS;

{$R *.dfm}

procedure TForm9.BtnNovoClick(Sender: TObject);
begin
  inherited;
  Form10.mode := 'INS';
  Form10.ShowModal;
end;

procedure TForm9.FormCreate(Sender: TObject);
begin
  inherited;
  //Form9.ShowModal;
end;

end.
